|
500
|
How can I get the number of results after a filter is applied
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
FUNCTION listEvents_Click()
_ObjectCallMethod( list , "ClearFilter");
END
// FilterChange event - Occurs when filter was changed.
FUNCTION listEvents_FilterChange()
Message( "Items.MatchItemCount" );
Message( _ObjectGetProperty( _ObjectGetProperty( list , "Items") , "MatchItemCount") );
Message( _ObjectCallMethod( list , "FormatABC", "value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",_ObjectGetProperty( _ObjectGetProperty( list , "Items") , "MatchItemCount")) );
END
OBJECT column,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectSetProperty( list , "FilterBarPromptVisible", 1);
_ObjectSetProperty( list , "FilterBarPromptPattern", "Item");
_ObjectCallMethod( list , "EndUpdate");
|
|
499
|
How can I programmatically clear the control's filter
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
FUNCTION listEvents_Click()
_ObjectCallMethod( list , "ClearFilter");
END
OBJECT column,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectSetProperty( list , "FilterBarPromptVisible", 1);
_ObjectSetProperty( list , "FilterBarPromptPattern", "B");
_ObjectCallMethod( list , "EndUpdate");
|
|
498
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectSetProperty( list , "FilterBarPromptPattern", "B");
_ObjectSetProperty( list , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
497
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectSetProperty( list , "FilterBarPromptVisible", 1);
_ObjectSetProperty( list , "FilterBarPromptPattern", "B");
_ObjectCallMethod( list , "EndUpdate");
|
|
496
|
Is it possible to prevent closing the control's filter bar, so it is always shown
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectSetProperty( list , "FilterBarCaption", "len(value) = 0 ? `<fgcolor=808080>no filter` : value");
_ObjectSetProperty( list , "FilterBarPromptVisible", 2);
column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
495
|
How can I find if the control is running in DPI mode
OBJECT list;
list = ObjectByName("AN1") ;
Message( _ObjectCallMethod( list , "FormatABC", "dpi = 1 ? `normal/stretch mode` : `dpi mode`") );
|
|
494
|
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
// SelectionChanged event - Fired after a new item is selected.
FUNCTION listEvents_SelectionChanged()
Message( "SelectionChanged" );
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( list , "FreezeEvents", -1);
_ObjectSetProperty( list , "SingleSel", -1);
_ObjectSetProperty( list , "SelectOnRelease", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Column") , "FormatColumn", "1 apos `A-Z`");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(Add(``)) = True");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( list , "FreezeEvents", 0);
_ObjectCallMethod( list , "EndUpdate");
|
|
493
|
Is it possible to select nothing
// SelectionChanged event - Fired after a new item is selected.
FUNCTION listEvents_SelectionChanged()
Message( "SelectionChanged" );
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( list , "FreezeEvents", -1);
_ObjectSetProperty( list , "AllowSelectNothing", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Column") , "FormatColumn", "1 apos `A-Z`");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(Add(``)) = True");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( list , "FreezeEvents", 0);
_ObjectCallMethod( list , "EndUpdate");
|
|
492
|
How do I change the drop down filter icon/button (black)
OBJECT appearance,column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
appearance = _ObjectGetProperty( list , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(26) = 65536");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(27) = 16777215");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(25) = `<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>`");
_ObjectSetProperty( list , "HeaderAppearance", 0);
_ObjectSetProperty( list , "BackColorHeader", 0);
_ObjectSetProperty( list , "ForeColorHeader", 16777215);
_ObjectSetProperty( list , "HeaderVisible", -1);
_ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor"));
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "FilterList", 8448);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "One");
_ObjectCallMethod( items , "Add", "Two");
_ObjectCallMethod( items , "Add", "Three");
_ObjectCallMethod( list , "EndUpdate");
|
|
491
|
How do I change the drop down filter icon/button (white)
OBJECT appearance,column,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
appearance = _ObjectGetProperty( list , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 -14 -4 -2 4");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(32) = BackColor");
_ObjectSetProperty( list , "HeaderAppearance", 0);
_ObjectSetProperty( list , "BackColorHeader", 16777215);
_ObjectSetProperty( list , "HeaderVisible", -1);
_ObjectSetProperty( list , "HeaderHeight", 24);
_ObjectSetProperty( list , "BackColorLevelHeader", _ObjectGetProperty( list , "BackColor"));
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectCallMethod( list , "EndUpdate");
|
|
490
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "HeaderHeight", 48);
_ObjectSetProperty( list , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 1`),3) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 2`),2) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 3`),1) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
489
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "HeaderHeight", 48);
_ObjectSetProperty( list , "HeaderSingleLine", 0);
_ObjectSetProperty( list , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second Column");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 1`),3) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 2`),2) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 3`),1) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
488
|
Can I display the column's caption vertically oriented (method 2)
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "HeaderHeight", 48);
_ObjectSetProperty( list , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 1`),3) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 2`),2) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 3`),1) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
487
|
Can I display the column's caption vertically oriented (method 1)
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "HeaderHeight", 48);
_ObjectSetProperty( list , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 1`),3) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 2`),2) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 3`),1) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1296);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "DateTime");
_ObjectSetProperty( column , "SortType", 3);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1296);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Time");
_ObjectSetProperty( column , "SortType", 4);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1296);
_ObjectSetProperty( column , "FormatColumn", "time(value)");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Numeric");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 1296);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "String");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 1296);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "1/27/2010");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #1/27/2010 10:00:00 AM#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = Caption(h,1)");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,4) = Caption(h,3)");
h = _ObjectCallMethod( items , "Add", "1/27/2011");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #1/27/2011 9:00:00 AM#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = Caption(h,1)");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = 11");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,4) = Caption(h,3)");
h = _ObjectCallMethod( items , "Add", "11/2/2010");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #11/2/2010 9:00:00 AM#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = Caption(h,1)");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = 2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,4) = Caption(h,3)");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`DateTime`).DisplayFilterDate = False");
_ObjectCallMethod( list , "EndUpdate");
|
|
485
|
How can I get ride / hide the image being dragged by OLE Drag and Drop
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData("data to drag")
AllowedEffects = 1;
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod(list, "ExecuteTemplate", "Background(34) = 16777215");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
|
|
484
|
Is there an event that fires on the exList control when the order of items in the list is changed via dragging
// AllowAutoDrag event - Occurs when the user drags the item between InsertA and InsertB.
FUNCTION listEvents_AllowAutoDrag(OBJECT list, INT Item, INT InsertA, INT InsertB, INT Cancel)
OBJECT items;
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,InsertA")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", InsertA)
Message( "After" );
Message( _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(InsertA,0)") );
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,InsertB")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", InsertB)
Message( "Before" );
Message( _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(InsertB,0)") );
Cancel = -1;
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "AutoDrag", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Task");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( items , "Add", "Item 4");
_ObjectCallMethod( list , "EndUpdate");
|
|
483
|
How can I export checked items only
OBJECT columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", columns)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Add(`C1`).Def(0) = True");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C2") , "FormatColumn", "1 index `A-Z`");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "FormatColumn", "100 index ``");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 2`),0) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(Add(`Item 3`),0) = 1");
_ObjectCallMethod( list , "EndUpdate");
Message( "Export CSV Checked Items Only:" );
Message( _ObjectCallMethod( list , "Export", "","chk") );
|
|
482
|
How can I export a hidden column
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
column = _ObjectCallMethod( columns , "Add", "C2");
_ObjectSetProperty( column , "FormatColumn", "1 index `A-Z`");
_ObjectSetProperty( column , "Visible", 0);
column = _ObjectCallMethod( columns , "Add", "C3");
_ObjectSetProperty( column , "FormatColumn", "100 index ``");
_ObjectSetProperty( column , "Visible", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( list , "EndUpdate");
Message( "Export CSV Hidden Columns (1,2):" );
Message( _ObjectCallMethod( list , "Export", "","|1,2") );
|
|
481
|
Is it possible to have a different alignment for parts of the cell's caption
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "DrawGridLines", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHAlignment(Add(`all-left`),0) = 0");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHAlignment(Add(`all-center`),0) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHAlignment(Add(`all-right`),0) = 2");
h = _ObjectCallMethod( items , "Add", "left<c>center<r>right");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
480
|
I have a column with Def(exCellSingleLine) property on False, word-wrapping, and I am wondering if possible to update the column's content while user is resizing it
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
column = _ObjectCallMethod( columns , "Add", "MultipleLine");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(64) = True");
column = _ObjectCallMethod( columns , "Add", "SingleLine");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`This is a bit of long text that should break the line`),1) = `This is a bit of long text that should break the line`");
_ObjectCallMethod( list , "EndUpdate");
|
|
479
|
How can I hide the cell's tooltip
// ToolTip event - Fired when the control prepares the object's tooltip.
FUNCTION listEvents_ToolTip(OBJECT list, INT ItemIndex, INT ColIndex, INT Visible, INT X, INT Y, INT CX, INT CY)
Message( "The tooltip is about to be shown" );
Visible = 0;
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Def");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(Add(`Item 1`),0) = `This is a bit of text that's shown when cursor hovers the item.`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(Add(`Item 2`),0) = `This is a bit of text that's shown when cursor hovers the item.`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(Add(`Item 3`),0) = `This is a bit of text that's shown when cursor hovers the item.`");
_ObjectCallMethod( list , "EndUpdate");
|
|
478
|
How can I find out if an item is selected or unselected
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION listEvents_MouseMove(OBJECT list, INT Button, INT Shift, INT X, INT Y)
OBJECT items;
_ObjectCallMethod(list, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(list, "TemplatePut", c)
_ObjectCallMethod(list, "TemplatePut", hit)
i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", i)
Message( _ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(i)") );
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Header");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(Add(`Item 2`)) = True");
_ObjectCallMethod( items , "Add", "Item 3");
|
|
477
|
How do I sort the index column as numeric
// AddItem event - Occurs after a new Item is inserted to Items collection.
FUNCTION listEvents_AddItem(OBJECT list, INT Item)
OBJECT items;
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", Item)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellData(Item,1) = Item");
END
OBJECT column,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "DrawGridLines", -1);
_ObjectSetProperty( list , "ColumnAutoResize", -1);
_ObjectSetProperty( list , "ShowFocusRect", 0);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Next");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 4");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(52) = 4");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "FormatColumn", "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "SortType", 5);
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( items , "Add", "Item 4");
_ObjectCallMethod( items , "Add", "Item 5");
_ObjectCallMethod( items , "Add", "Item 6");
_ObjectCallMethod( items , "Add", "Item 7");
_ObjectCallMethod( items , "Add", "Item 8");
_ObjectCallMethod( items , "Add", "Item 9");
_ObjectCallMethod( items , "Add", "Item 10");
_ObjectCallMethod( list , "EndUpdate");
|
|
476
|
How can I put icons/images into buttons
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", -1);
_ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "C+B");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "FormatColumn", "` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(2) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(3) = True");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
_ObjectSetProperty( list , "DrawGridLines", 2);
_ObjectSetProperty( list , "DefaultItemHeight", 20);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( list , "EndUpdate");
|
|
475
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
// CellButtonClick event - Fired after the user clicks the cell's button.
FUNCTION listEvents_CellButtonClick(OBJECT list, INT Item, INT ColIndex)
Message( "CellButtonClick" );
Message( Item );
END
// CellStateChanged event - Fired after cell's state is changed.
FUNCTION listEvents_CellStateChanged(OBJECT list, INT Item, INT ColIndex)
Message( "CellStateChanged" );
Message( Item );
END
OBJECT column,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Def");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "FormatColumn", "` `");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(2) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(3) = True");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( list , "EndUpdate");
|
|
474
|
Does filtering work with umlauts / accents characters
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Names");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 3);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Mantel");
_ObjectCallMethod( items , "Add", "Mechanik");
_ObjectCallMethod( items , "Add", "Motor");
_ObjectCallMethod( items , "Add", "Murks");
_ObjectCallMethod( items , "Add", "Märchen");
_ObjectCallMethod( items , "Add", "Möhren");
_ObjectCallMethod( items , "Add", "Mühle");
_ObjectCallMethod( items , "Add", "Sérigraphie");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).Filter = `*ä*`");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
473
|
Can I set the search box / filterbarprompt to invisible, so I can use my own input and *string* via VBA
OBJECT columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", -1);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
_ObjectSetProperty( list , "MarkSearchColumn", 0);
_ObjectSetProperty( list , "SearchColumnIndex", 1);
_ObjectSetProperty( list , "FilterBarHeight", 0);
_ObjectSetProperty( list , "FilterBarPromptVisible", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( list , "Items");
h0 = _ObjectCallMethod( items , "Add", "Nancy Davolio");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h0)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "Add", "Andrew Fuller");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Tacoma`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "Add", "Janet Leverling");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "Add", "Margaret Peacock");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "Add", "Steven Buchanan");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Manager`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "Add", "Michael Suyama");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "Add", "Robert King");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "Add", "Laura Callahan");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "Add", "Anne Dodsworth");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,1) = `Sales Representative`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h0,2) = `London`");
_ObjectSetProperty( list , "FilterBarPromptPattern", "London");
_ObjectCallMethod( list , "EndUpdate");
|
|
472
|
How can I align captions of items with checkbox, with items with no checkbox
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(0),0) = `1`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellHasCheckBox(Add(1),0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellImages(Add(2),0) = `1`");
_ObjectCallMethod( list , "EndUpdate");
|
|
471
|
How do I programmatically scroll the control (method 2)
OBJECT list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", 0);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectSetProperty( list , "Layout", "vscroll = 10");
_ObjectCallMethod( list , "EndUpdate");
|
|
470
|
How do I programmatically scroll the control (method 1)
OBJECT list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", 0);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectCallMethod(list, "ExecuteTemplate", "ScrollPos(True) = 10");
_ObjectCallMethod( list , "EndUpdate");
|
|
469
|
How can I decode the Layout property
OBJECT columns,createobject("exontrol.print"),items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C2") , "Position", 1);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`SubItem 1.1`),1) = `SubItem 1.2`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`SubItem 2.1`),1) = `SubItem 2.2`");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`C2`).SortOrder = 2");
_ObjectCallMethod( list , "EndUpdate");
Message( "Encoded:" );
Message( _ObjectGetProperty( list , "Layout") );
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectCallMethod(list, "TemplatePut", "Dim creObj")
_ObjectCallMethod(list, "TemplatePut", createobject("exontrol.print"))
Message( "Decoded: " );
Message( _ObjectCallMethod(list, "ExecuteTemplate", "creObj.Decode64TextW(Me.Layout)") );
|
|
468
|
Does the title of the cell's tooltip supports HTML format
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
_ObjectSetProperty( column , "Caption", "");
_ObjectSetProperty( column , "HTMLCaption", "Column");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "tooltip w/h different title");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(h,0) = `<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color.`");
_ObjectCallMethod( list , "EndUpdate");
|
|
467
|
How do I specify a different title for the cell's tooltip
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
_ObjectSetProperty( column , "Caption", "This is the title");
_ObjectSetProperty( column , "HTMLCaption", "Column");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "tooltip w/h different title");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(h,0) = `This is bit of text that's shown when the user hovers the cell.`");
_ObjectCallMethod( list , "EndUpdate");
|
|
466
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "tooltip w/h caption");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(h,0) = `This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `tooltip no caption`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellToolTip(h,1) = `This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.`");
column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`C2`)");
_ObjectSetProperty( column , "HTMLCaption", _ObjectGetProperty( column , "Caption"));
_ObjectSetProperty( column , "Caption", "");
_ObjectCallMethod( list , "EndUpdate");
|
|
465
|
When you click the cell it takes some time before the edit box appears, can this delay be removed
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
FUNCTION listEvents_Click()
_ObjectCallMethod(list, "TemplatePut", "Dim ColIndex,HitTestInfo")
_ObjectCallMethod(list, "TemplatePut", ColIndex)
_ObjectCallMethod(list, "TemplatePut", HitTestInfo)
h = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,ColIndex,HitTestInfo)");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Edit", h,ColIndex);
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectSetProperty( list , "AllowEdit", -1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "");
_ObjectCallMethod( items , "Add", "Edit");
_ObjectCallMethod( items , "Add", "");
|
|
464
|
How can I programmatically show the column's filter
// RClick event - Fired when right mouse button is clicked
FUNCTION listEvents_RClick()
_ObjectCallMethod(list, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(list, "TemplatePut", c)
_ObjectCallMethod(list, "TemplatePut", hit)
i = _ObjectCallMethod(list, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(list, "TemplatePut", "Dim c")
_ObjectCallMethod(list, "TemplatePut", c)
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(c).ShowFilter(`-1,-1,128,128`)");
END
OBJECT column,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ShowFocusRect", 0);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items ");
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( list , "EndUpdate");
|
|
463
|
I want to be able to click on one of the headers, and sort by other column. How can I do that
// ColumnClick event - Fired after the user clicks on column's header.
FUNCTION listEvents_ColumnClick(OBJECT list, OBJECT Column)
' Column.SortOrder = 1
_ObjectSetProperty( list , "SortOnClick", -1);
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(`Sort`).SortOrder = 1");
_ObjectSetProperty( list , "SortOnClick", 1);
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "SortOnClick", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Sort") , "Visible", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 1 (3)`),1) = 3");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 2 (1)`),1) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 3 (2)`),1) = 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
462
|
How can I sort by two-columns, one by date and one by time
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "SingleSort", 0);
columns = _ObjectGetProperty( list , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Index") , "FormatColumn", "1 index ``");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Date") , "SortType", 2);
column = _ObjectCallMethod( columns , "Add", "Time");
_ObjectSetProperty( column , "SortType", 4);
_ObjectSetProperty( column , "FormatColumn", "time(value)");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #1/1/2001#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 10:00:00 AM#");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #12/31/2000#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 10:00:00 AM#");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #1/1/2001#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 6:00:00 AM#");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #12/31/2000#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 8:00:00 AM#");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #1/1/2001#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 8:00:00 AM#");
h = _ObjectCallMethod( items , "Add", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = #12/31/2000#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = #1/1/2001 6:00:00 AM#");
_ObjectSetProperty( list , "Layout", "multiplesort=^"C1:1 C2:1^"");
_ObjectCallMethod( list , "EndUpdate");
|
|
461
|
How can I connect to a DBF file
OBJECT list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", 0);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
_ObjectSetProperty( list , "MarkSearchColumn", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectCallMethod( list , "EndUpdate");
|
|
460
|
Does your control supports scrolling by touching the screen
OBJECT list,rs;
list = ObjectByName("AN1") ;
_ObjectSetProperty( list , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectSetProperty( list , "ContinueColumnScroll", -1);
_ObjectSetProperty( list , "ScrollBySingleLine", -1);
_ObjectSetProperty( list , "AutoDrag", 4112);
|
|
459
|
How can I enlarge the size of the control's scroll bars, for using on touch screens
OBJECT list;
list = ObjectByName("AN1") ;
_ObjectSetProperty( list , "ScrollBars", 15);
_ObjectSetProperty( list , "ScrollWidth", 32);
_ObjectSetProperty( list , "ScrollHeight", 32);
_ObjectSetProperty( list , "ScrollButtonHeight", 32);
_ObjectSetProperty( list , "ScrollButtonWidth", 32);
|
|
458
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
// CellStateChanged event - Fired after cell's state is changed.
FUNCTION listEvents_CellStateChanged(OBJECT list, INT Item, INT ColIndex)
OBJECT items;
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", Item)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Item,2) = CellState(Item,0)");
END
OBJECT column,items,list,var_conditionalformat;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ShowFocusRect", 0);
_ObjectSetProperty( list , "MarkSearchColumn", 0);
_ObjectSetProperty( list , "SelBackMode", 1);
var_ConditionalFormat = _ObjectCallMethod( _ObjectGetProperty( list , "ConditionalFormats") , "Add", "%2 != 0");
var_conditionalformat = var_ConditionalFormat;
_ObjectSetProperty( var_conditionalformat , "Bold", -1);
_ObjectSetProperty( var_conditionalformat , "ForeColor", 255);
_ObjectSetProperty( var_conditionalformat , "ApplyTo", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 16);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Information");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Hidden") , "Visible", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(``),1) = `This is a bit of text associated`");
h = _ObjectCallMethod( items , "Add", "");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `This is a bit of text associated`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(``),1) = `This is a bit of text associated`");
_ObjectCallMethod( list , "EndUpdate");
|
|
457
|
How can I display the caption bellow to picture
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ScrollBySingleLine", -1);
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`");
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "<c><img>p1</img><br><c>your caption1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1");
h = _ObjectCallMethod( items , "Add", "<c><img>p2</img><br><c>your caption2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,0) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
456
|
How can I add a vertical padding
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "DrawGridLines", -1);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Padding");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 6");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(49) = 6");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(50) = 6");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(51) = 6");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "padding");
_ObjectCallMethod( items , "Add", "padding");
_ObjectCallMethod( list , "EndUpdate");
|
|
455
|
How do you embed HTML options into the anchor click string
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION listEvents_AnchorClick(OBJECT list, STRING AnchorID, STRING Options)
Message( AnchorID );
Message( Options );
END
OBJECT columns,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", columns)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Add(`Car`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "<a mazda_1;options for 1>Mazda <b>1</b></a>");
_ObjectCallMethod( items , "Add", "<a mazda_2;options for 2>Mazda <b>2</b></a>");
_ObjectCallMethod( items , "Add", "<a mazda_3;options for 3a>Mazda <b>3.a</b></a>");
_ObjectCallMethod( items , "Add", "<a mazda_3;options for 3b>Mazda <b>3.b</b></a>");
_ObjectCallMethod( list , "EndUpdate");
|
|
454
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78e" +
"gBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRx" +
"LC8Mw3BDvYDkOAABAIgI=");
_ObjectSetProperty( list , "SelBackColor", 33554430);
_ObjectSetProperty( list , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`red`)) = 255");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`blue`)) = 16711680");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`green`)) = 65280");
_ObjectCallMethod( list , "EndUpdate");
|
|
453
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "SelBackMode", 1);
_ObjectSetProperty( list , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`red`)) = 255");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`blue`)) = 16711680");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`green`)) = 65280");
_ObjectCallMethod( list , "EndUpdate");
|
|
452
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "SelBackColor", _ObjectGetProperty( list , "BackColor"));
_ObjectSetProperty( list , "SelForeColor", _ObjectGetProperty( list , "ForeColor"));
_ObjectSetProperty( list , "ShowFocusRect", -1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`red`)) = 255");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`blue`)) = 16711680");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(Add(`green`)) = 65280");
_ObjectCallMethod( list , "EndUpdate");
|
|
451
|
I am using the FormatColumn property, but is it also possible to have a blank field when the value is '0'. I've tried the 'leading zero' flag in the FormatColumn, but that did not work
OBJECT list;
list = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Currency") , "FormatColumn", "int(value) != 0 ? (value format `0||3|,`) : ``");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 123456789);
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 1234);
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 0);
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 2345);
|
|
450
|
Do you have a VB sample on how to use .FormatColumn to show this number '123456789' like '123,456,789'
OBJECT list;
list = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Currency") , "FormatColumn", "value format `0||3|,`");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 123456789);
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", 1234);
|
|
449
|
Is it possible to change the image while do OLE Drag and Drop operations
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData(Items.FocusItem)
END
OBJECT list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "Item 1");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "Item 2");
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`OLEDragDropImage`) = `C:\Program Files\Exontrol\ExList\Sample\VB\UNICODE\unicode.jpg`");
|
|
448
|
Is it possible to change the image while do OLE Drag and Drop operations
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData(Items.FocusItem)
END
OBJECT list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "Item 1");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "Item 2");
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\xpbselIcon.ebn");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(34) = 16777216");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(33) = 16777215");
|
|
447
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`");
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`");
_ObjectSetProperty( list , "AutoDrag", 11);
_ObjectSetProperty( list , "ShowFocusRect", 0);
_ObjectSetProperty( list , "DefaultItemHeight", 26);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Task");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(Add(`<img>p1:32</img> Group 1`),0) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(Add(`<img>p2:32</img> Group 2`),0) = 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
446
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
OBJECT items,list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`");
_ObjectCallMethod(list, "ExecuteTemplate", "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`");
_ObjectSetProperty( list , "HeaderHeight", 24);
_ObjectSetProperty( list , "DefaultItemHeight", 48);
_ObjectSetProperty( list , "DrawGridLines", -2);
_ObjectSetProperty( list , "GridLineColor", 15790320);
_ObjectSetProperty( list , "SelBackMode", 1);
_ObjectSetProperty( list , "ColumnAutoResize", 0);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).Def(17) = 1");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).FormatColumn = `value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>``");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(0).Width = 112");
_ObjectSetProperty( list , "AutoDrag", 10);
_ObjectSetProperty( list , "SingleSel", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(1) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(2) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(3) = True");
_ObjectCallMethod( list , "EndUpdate");
|
|
445
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
OBJECT items,list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", 0);
_ObjectSetProperty( list , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectSetProperty( list , "AutoDrag", 9);
_ObjectSetProperty( list , "SingleSel", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(1) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(3) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(4) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(5) = True");
_ObjectCallMethod( list , "EndUpdate");
|
|
444
|
How can I change the row's position to another, by drag and drop. Is it possible
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "AutoDrag", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Task");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( items , "Add", "Item 4");
_ObjectCallMethod( list , "EndUpdate");
|
|
443
|
Does your control support subscript or superscript, in HTML captions
OBJECT list;
list = ObjectByName("AN1") ;
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Column`).Def(17) = 1");
_ObjectCallMethod( _ObjectGetProperty( list , "Items") , "Add", "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1");
|
|
442
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Column");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectSetProperty( list , "Layout", "Select=^"0^";SingleSort=^"C0:2^";Columns=1");
_ObjectCallMethod( list , "EndUpdate");
|
|
441
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Column");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectSetProperty( list , "Layout", "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" +
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" +
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI=");
_ObjectCallMethod( list , "EndUpdate");
|
|
440
|
Is there any public method to export the selected data
OBJECT columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C2") , "FormatColumn", "1 index `A-Z`");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "FormatColumn", "100 index ``");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(Add(`Item 2`)) = True");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( list , "EndUpdate");
Message( "Export CSV Selected Items Only:" );
Message( _ObjectCallMethod( list , "Export", "","sel") );
|
|
439
|
How can I change the visual aspect of the links in the sort bar
OBJECT column,list,rs;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExList\Sample\Access\SAMPLE.ACCDB",3,3);
_ObjectSetProperty( list , "DataSource", rs);
_ObjectSetProperty( list , "SortBarHeight", 24);
_ObjectSetProperty( list , "HeaderHeight", 24);
_ObjectSetProperty( list , "BackColorSortBar", 15790320);
_ObjectSetProperty( list , "BackColorSortBarCaption", _ObjectGetProperty( list , "BackColor"));
_ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA" +
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" +
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI");
_ObjectSetProperty( list , "SortBarVisible", -1);
_ObjectSetProperty( list , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "Alignment", 1);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(4) = 15790320");
_ObjectSetProperty( column , "SortOrder", -1);
column = _ObjectCallMethod(list, "ExecuteTemplate", "Columns.Item(5)");
_ObjectSetProperty( column , "Alignment", 1);
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(4) = 16119285");
_ObjectSetProperty( column , "SortOrder", -1);
_ObjectCallMethod(list, "ExecuteTemplate", "Background(28) = 16777216");
_ObjectCallMethod( list , "EndUpdate");
|
|
438
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( list , "Columns");
column = _ObjectCallMethod( columns , "Add", "Car");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "MAZDA");
column = _ObjectCallMethod( columns , "Add", "Equipment");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "CustomFilter", "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "AIR BAG");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `Air Bag`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Toyota`),1) = `Air Bag,Air condition`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Ford`),1) = `Air condition`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Nissan`),1) = `Air Bag,ABS,ESP`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `Air Bag, ABS,ESP`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `ABS,ESP`");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
437
|
How can I have a case-sensitive filter
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( list , "Columns");
column = _ObjectCallMethod( columns , "Add", "Car");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 496);
_ObjectSetProperty( column , "Filter", "Mazda");
column = _ObjectCallMethod( columns , "Add", "Equipment");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "CustomFilter", "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*");
_ObjectSetProperty( column , "FilterType", 259);
_ObjectSetProperty( column , "Filter", "Air Bag");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `Air Bag`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Toyota`),1) = `Air Bag,Air condition`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Ford`),1) = `Air condition`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Nissan`),1) = `Air Bag,ABS,ESP`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `Air Bag, ABS,ESP`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Mazda`),1) = `ABS,ESP`");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
436
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "Filter", "Child 1");
_ObjectSetProperty( column , "FilterType", 240);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 9474);
_ObjectSetProperty( column , "Filter", "12/28/2010");
_ObjectSetProperty( column , "FilterType", 4);
_ObjectSetProperty( list , "FilterCriteria", "%0 or %1");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(23) = `<font ;18><fgcolor=FF0000>or</fgcolor></font>`");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(11) = `<font ;18><fgcolor=FF0000>and</fgcolor></font>`");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Child 1`),1) = #12/27/2010#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Child 2`),1) = #12/28/2010#");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Child 1`),1) = #12/29/2010#");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Child 2`),1) = #12/30/2010#");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
435
|
Is it possible exclude the dates being selected in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 9474);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "12/27/2010");
_ObjectCallMethod( items , "Add", "12/28/2010");
_ObjectCallMethod( items , "Add", "12/29/2010");
_ObjectCallMethod( items , "Add", "12/30/2010");
_ObjectCallMethod( items , "Add", "12/31/2010");
_ObjectCallMethod( list , "EndUpdate");
|
|
434
|
How can I display a calendar control inside the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1282);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "12/27/2010");
_ObjectCallMethod( items , "Add", "12/28/2010");
_ObjectCallMethod( items , "Add", "12/29/2010");
_ObjectCallMethod( items , "Add", "12/30/2010");
_ObjectCallMethod( items , "Add", "12/31/2010");
_ObjectCallMethod( list , "EndUpdate");
|
|
433
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1280);
_ObjectSetProperty( column , "Filter", "to 12/27/2010");
_ObjectSetProperty( column , "FilterType", 4);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "12/27/2010");
_ObjectCallMethod( items , "Add", "12/28/2010");
_ObjectCallMethod( items , "Add", "12/29/2010");
_ObjectCallMethod( items , "Add", "12/30/2010");
_ObjectCallMethod( items , "Add", "12/31/2010");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
432
|
How can I filter items for dates before a specified date
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1026);
_ObjectSetProperty( column , "Filter", "to 12/27/2010");
_ObjectSetProperty( column , "FilterType", 4);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "12/27/2010");
_ObjectCallMethod( items , "Add", "12/28/2010");
_ObjectCallMethod( items , "Add", "12/29/2010");
_ObjectCallMethod( items , "Add", "12/30/2010");
_ObjectCallMethod( items , "Add", "12/31/2010");
_ObjectCallMethod( list , "ApplyFilter");
_ObjectCallMethod( list , "EndUpdate");
|
|
431
|
Is it possible to filter dates
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1026);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "12/27/2010");
_ObjectCallMethod( items , "Add", "12/28/2010");
_ObjectCallMethod( items , "Add", "12/29/2010");
_ObjectCallMethod( items , "Add", "12/30/2010");
_ObjectCallMethod( items , "Add", "12/31/2010");
_ObjectCallMethod( list , "EndUpdate");
|
|
430
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(25) = `Leaving out`");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
429
|
How can I display the Exclude field in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( list , "EndUpdate");
|
|
428
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1280);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.SelectItem(Add(`Child 2`)) = True");
_ObjectCallMethod( list , "EndUpdate");
|
|
427
|
Is it possible to show only blanks items with no listed items from the control
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 16386);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
426
|
How can I include the blanks items in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 16640);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
425
|
How can I select multiple items in the drop down filter window, using check-boxes
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 256);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
424
|
Is it possible to allow a single item being selected in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 128);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
423
|
How can I display no (All) item in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(0) = ``");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "FilterList", 2);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
422
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "FilterList", 2);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Root 1");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
h = _ObjectCallMethod( items , "Add", "Root 2");
_ObjectCallMethod( items , "Add", "Child 1");
_ObjectCallMethod( items , "Add", "Child 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
421
|
How can I sort the value gets listed in the drop down filter window
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectSetProperty( list , "MarkSearchColumn", 0);
_ObjectCallMethod(list, "ExecuteTemplate", "Description(0) = ``");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(1) = ``");
_ObjectCallMethod(list, "ExecuteTemplate", "Description(2) = ``");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "P1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 16);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "P2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 32);
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Z3");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = `C`");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Z1`),1) = `B`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Z2`),1) = `A`");
|
|
420
|
How can I add or change the padding (spaces) for captions in the control's header
OBJECT column,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Padding-Left`).Def(52) = 18");
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Padding-Right");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(53) = 18");
_ObjectSetProperty( column , "HeaderAlignment", 2);
_ObjectCallMethod( list , "EndUpdate");
|
|
419
|
Do you have any plans to add cell spacing and cell padding to the cells
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "DrawGridLines", -2);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Padding-Left");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(48) = 18");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`No-Padding`).Def(0) = True");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Empty") , "Position", 0);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item A.1`),1) = `Item A.2`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item B.1`),1) = `Item B.2`");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item C.1`),1) = `Item C.2`");
_ObjectCallMethod( list , "EndUpdate");
|
|
418
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default positive)'`");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`");
h = _ObjectCallMethod( items , "Add", -100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default negative)'`");
h = _ObjectCallMethod( items , "Add", -100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '2|.|3|,|1|1')`");
_ObjectCallMethod( list , "EndUpdate");
|
|
417
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 0.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", 0.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
416
|
How can I specify the format for negative numbers
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", -100000.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", -100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
415
|
Is it possible to change the grouping character when display numbers
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
414
|
How can I display numbers with 2 digits in each group
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", 100000.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
413
|
How can I display my numbers using a different decimal separator
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
412
|
Is it possible to display the numbers using 3 (three) digits
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod(list, "ExecuteTemplate", "Columns.Add(`Def`).Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '') + ' <fgcolor=808080>(default)'`");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format '3') + ' <fgcolor=808080>(3 digits)'`");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format 2) + ' <fgcolor=808080>(2 digits)'`");
h = _ObjectCallMethod( items , "Add", 100.27);
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `(value format 1) + ' <fgcolor=808080>(1 digit)'`");
_ObjectCallMethod( list , "EndUpdate");
|
|
411
|
Is it possible to format numbers
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
_ObjectSetProperty( list , "SelBackColor", _ObjectGetProperty( list , "BackColor"));
_ObjectSetProperty( list , "SelForeColor", _ObjectGetProperty( list , "ForeColor"));
_ObjectSetProperty( list , "ShowFocusRect", -1);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "A");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'");
column = _ObjectCallMethod( columns , "Add", "B");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' +'");
column = _ObjectCallMethod( columns , "Add", "C");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "FormatColumn", "len(value) ? value + ' ='");
column = _ObjectCallMethod( columns , "Add", "A+B+C");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "ComputedField", "dbl(%1)+dbl(%2)+dbl(%3)");
_ObjectSetProperty( column , "FormatColumn", "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
h = _ObjectCallMethod( items , "Add", "Item");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "TemplatePut", h)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.CaptionFormat(h,4) = 2");
h = _ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = 7");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = 3");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = 1");
h = _ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = -2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = -2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = -4");
h = _ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,1) = 2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,2) = 2");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(h,3) = -4");
_ObjectCallMethod( list , "EndUpdate");
|
|
410
|
Is it possible background color displayed when the mouse passes over an item
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Def");
_ObjectSetProperty( list , "HotBackColor", 8388608);
_ObjectSetProperty( list , "HotForeColor", 16777215);
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item A");
_ObjectCallMethod( items , "Add", "Item B");
_ObjectCallMethod( items , "Add", "Item C");
_ObjectCallMethod( list , "EndUpdate");
|
|
409
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "Values");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "FormatColumn", "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(Add(`Item A`),1) = ``<none>``");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 1`),1) = 10");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 2`),1) = 15");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 3`),1) = 25");
_ObjectCallMethod( list , "EndUpdate");
|
|
408
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "Values");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "FormatColumn", "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.FormatCell(Add(`Item A`),1) = ` `");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 1`),1) = 10");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 2`),1) = 15");
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.Caption(Add(`Item 3`),1) = 25");
_ObjectCallMethod( list , "EndUpdate");
|
|
407
|
I am using the FormatColumn to format my columns. Is it possible to ignore the SelForeColor, so the foreground color for selected items does not override my settings
// SelectionChanged event - Fired after a new item is selected.
FUNCTION listEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "ClearItemBackColor", -1);
_ObjectCallMethod(list, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(list, "TemplatePut", items)
_ObjectCallMethod(list, "ExecuteTemplate", "iteObj.ItemBackColor(SelectedItem(0)) = 16777088");
END
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "MarkSearchColumn", 0);
_ObjectSetProperty( list , "SelForeColor", _ObjectGetProperty( list , "ForeColor"));
_ObjectSetProperty( list , "SelBackColor", _ObjectGetProperty( list , "BackColor"));
_ObjectSetProperty( list , "ShowFocusRect", 0);
columns = _ObjectGetProperty( list , "Columns");
column = _ObjectCallMethod( columns , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", 10);
_ObjectCallMethod( items , "Add", -8);
_ObjectCallMethod( list , "EndUpdate");
|
|
406
|
Is it possible to change the height for all items at once
OBJECT items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Items");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( items , "Add", "Item 3");
_ObjectCallMethod( items , "Add", "Item 4");
_ObjectCallMethod( list , "EndUpdate");
_ObjectSetProperty( list , "DefaultItemHeight", 12);
_ObjectCallMethod(list, "ExecuteTemplate", "Items.ItemHeight(-1) = 12");
|
|
405
|
How can I change the shape of the line to be shown when user drag and drop data over the control
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData("data to be dragged")
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "VisualAppearance") , "Add", 1,"C:\Program Files\Exontrol\ExList\Sample\VB\DragDrop\insert_bottom.ebn");
_ObjectCallMethod(list, "ExecuteTemplate", "Background(96) = 16777216");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
|
|
404
|
How can I highlight the item from cursor when the user drag and drop data over the control
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData("data to be dragged")
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod(list, "ExecuteTemplate", "Background(96) = 1");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
|
|
403
|
How can I start drag and drop items
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION listEvents_OLEStartDrag(OBJECT list, OBJECT Data, INT AllowedEffects)
' Data.SetData("to be carried by drag and drop")
AllowedEffects = 1;
END
OBJECT items,list;
list = ObjectByName("AN1") ;
ObjectAssociateEvents("listEvents", list);
_ObjectCallMethod( list , "BeginUpdate");
_ObjectSetProperty( list , "OLEDropMode", 1);
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Default");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "Item 1");
_ObjectCallMethod( items , "Add", "Item 2");
_ObjectCallMethod( list , "EndUpdate");
|
|
402
|
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares
OBJECT column,columns,items,list;
list = ObjectByName("AN1") ;
columns = _ObjectGetProperty( list , "Columns");
_ObjectCallMethod( columns , "Add", "Value");
column = _ObjectCallMethod( columns , "Add", "CellSingleLine = False");
_ObjectSetProperty( column , "ComputedField", "%0");
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(16) = False");
column = _ObjectCallMethod( columns , "Add", "FormatColumn/replace CRLF");
_ObjectSetProperty( column , "ComputedField", "%0");
_ObjectSetProperty( column , "FormatColumn", "value replace `\r\n` with ``");
column = _ObjectCallMethod( columns , "Add", "FormatColumn/replace TAB,CRLF");
_ObjectSetProperty( column , "ComputedField", "%0");
_ObjectSetProperty( column , "FormatColumn", "(value replace `\t` with ``) replace `\r\n` with ``");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "a\ta\r\nb\tb");
|
|
401
|
The Column.Alignment property does not seem to work for cells with images in them. What can be done
OBJECT column,items,list;
list = ObjectByName("AN1") ;
_ObjectCallMethod( list , "BeginUpdate");
_ObjectCallMethod( list , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( list , "DrawGridLines", -1);
_ObjectSetProperty( list , "HeaderHeight", 24);
_ObjectSetProperty( list , "DefaultItemHeight", 24);
column = _ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img>");
_ObjectSetProperty( column , "HeaderAlignment", 1);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectCallMethod(list, "TemplatePut", "Dim colObj")
_ObjectCallMethod(list, "TemplatePut", column)
_ObjectCallMethod(list, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod( _ObjectGetProperty( list , "Columns") , "Add", "Rest");
items = _ObjectGetProperty( list , "Items");
_ObjectCallMethod( items , "Add", "<img>1</img>");
_ObjectCallMethod( items , "Add", "<img>2</img>");
_ObjectCallMethod( items , "Add", "<img>3</img>");
_ObjectCallMethod( list , "EndUpdate");
|